home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00084.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  531 b   |  31 lines
  1. on exitFrame
  2.   global lp, dd
  3.   if the lastClick > (180 * 60) then
  4.     set lp to random(5)
  5.     if lp = 1 then
  6.       puppetSound(5, 0)
  7.       puppetSound(6, 0)
  8.       dropsounds()
  9.     end if
  10.     if lp = 2 then
  11.       changesounds()
  12.     end if
  13.     if lp = 3 then
  14.       puppetSound(5, 0)
  15.       puppetSound(6, 0)
  16.     end if
  17.     if lp = 4 then
  18.       if dd = 11 then
  19.         mixdown()
  20.         dropdrums()
  21.       else
  22.         dropdrums()
  23.       end if
  24.     end if
  25.     if lp = 5 then
  26.       transform()
  27.       changedrums()
  28.     end if
  29.   end if
  30. end
  31.